home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / System / Parallel Port Monitor / parmon.exe / 0 / RCDATA / TFORM1 / TFORM1.txt
Encoding:
Text File  |  1997-04-22  |  30.3 KB  |  1,113 lines
  1. object Form1: TForm1
  2.   Left = 298
  3.   Top = 174
  4.   BorderStyle = bsToolWindow
  5.   Caption = 'Parallel Port Monitor'
  6.   ClientHeight = 109
  7.   ClientWidth = 193
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poDefaultPosOnly
  13.   Scaled = False
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Notebook1: TNotebook
  19.     Left = 0
  20.     Top = 0
  21.     Width = 193
  22.     Height = 109
  23.     Align = alClient
  24.     PageIndex = 3
  25.     TabOrder = 0
  26.     object TPage
  27.       Left = 0
  28.       Top = 0
  29.       Caption = 'Main'
  30.       object Panel1: TPanel
  31.         Left = 0
  32.         Top = 0
  33.         Width = 29
  34.         Height = 17
  35.         Hint = 'Click to select next available port'
  36.         BevelOuter = bvLowered
  37.         Caption = 'Port'
  38.         Color = clNavy
  39.         Font.Color = clWhite
  40.         Font.Height = -11
  41.         Font.Name = 'arial'
  42.         Font.Style = []
  43.         ParentFont = False
  44.         ParentShowHint = False
  45.         ShowHint = True
  46.         TabOrder = 0
  47.         OnClick = Port1LabelClick
  48.       end
  49.       object Panel2: TPanel
  50.         Left = 32
  51.         Top = 0
  52.         Width = 29
  53.         Height = 17
  54.         BevelOuter = bvLowered
  55.         Caption = 'Dec'
  56.         Color = clNavy
  57.         Font.Color = clWhite
  58.         Font.Height = -11
  59.         Font.Name = 'arial'
  60.         Font.Style = []
  61.         ParentFont = False
  62.         TabOrder = 1
  63.       end
  64.       object Panel3: TPanel
  65.         Left = 64
  66.         Top = 0
  67.         Width = 29
  68.         Height = 17
  69.         BevelOuter = bvLowered
  70.         Caption = 'Hex'
  71.         Color = clNavy
  72.         Font.Color = clWhite
  73.         Font.Height = -11
  74.         Font.Name = 'arial'
  75.         Font.Style = []
  76.         ParentFont = False
  77.         TabOrder = 2
  78.       end
  79.       object Panel4: TPanel
  80.         Left = 96
  81.         Top = 0
  82.         Width = 53
  83.         Height = 17
  84.         BevelOuter = bvLowered
  85.         Caption = 'Binary'
  86.         Color = clNavy
  87.         Font.Color = clWhite
  88.         Font.Height = -11
  89.         Font.Name = 'arial'
  90.         Font.Style = []
  91.         ParentFont = False
  92.         TabOrder = 3
  93.       end
  94.       object Panel5: TPanel
  95.         Left = 152
  96.         Top = 0
  97.         Width = 41
  98.         Height = 17
  99.         Hint = 'Click to toggle all'
  100.         BevelOuter = bvLowered
  101.         Caption = 'Beep'
  102.         Color = clNavy
  103.         Font.Color = clWhite
  104.         Font.Height = -11
  105.         Font.Name = 'arial'
  106.         Font.Style = []
  107.         ParentFont = False
  108.         ParentShowHint = False
  109.         ShowHint = True
  110.         TabOrder = 4
  111.         OnClick = Panel5Click
  112.       end
  113.       object Port1Label: TPanel
  114.         Left = 0
  115.         Top = 20
  116.         Width = 29
  117.         Height = 17
  118.         Hint = 'Click to select next available port'
  119.         BevelOuter = bvLowered
  120.         Caption = '378'
  121.         Font.Color = clWindowText
  122.         Font.Height = -11
  123.         Font.Name = 'arial'
  124.         Font.Style = []
  125.         ParentFont = False
  126.         ParentShowHint = False
  127.         ShowHint = True
  128.         TabOrder = 5
  129.         OnClick = Port1LabelClick
  130.       end
  131.       object Port1Dec: TPanel
  132.         Left = 32
  133.         Top = 20
  134.         Width = 29
  135.         Height = 17
  136.         Hint = 'Click to edit'
  137.         BevelOuter = bvLowered
  138.         Caption = '255'
  139.         Font.Color = clWindowText
  140.         Font.Height = -11
  141.         Font.Name = 'arial'
  142.         Font.Style = []
  143.         ParentFont = False
  144.         ParentShowHint = False
  145.         ShowHint = True
  146.         TabOrder = 6
  147.         OnClick = Port1DecClick
  148.         object Edit1: TEdit
  149.           Left = 4
  150.           Top = 8
  151.           Width = 121
  152.           Height = 19
  153.           Hint = 'Esc to cancel'
  154.           BorderStyle = bsNone
  155.           Ctl3D = False
  156.           Font.Color = clWindowText
  157.           Font.Height = -11
  158.           Font.Name = 'arial'
  159.           Font.Style = []
  160.           ParentCtl3D = False
  161.           ParentFont = False
  162.           ParentShowHint = False
  163.           ShowHint = True
  164.           TabOrder = 0
  165.           Text = 'Edit1'
  166.           Visible = False
  167.           OnKeyPress = Edit1KeyPress
  168.         end
  169.       end
  170.       object Port1Hex: TPanel
  171.         Left = 64
  172.         Top = 20
  173.         Width = 29
  174.         Height = 17
  175.         Hint = 'Click to edit'
  176.         BevelOuter = bvLowered
  177.         Caption = 'FF'
  178.         Font.Color = clWindowText
  179.         Font.Height = -11
  180.         Font.Name = 'arial'
  181.         Font.Style = []
  182.         ParentFont = False
  183.         ParentShowHint = False
  184.         ShowHint = True
  185.         TabOrder = 7
  186.         OnClick = Port1DecClick
  187.       end
  188.       object Port1Bin: TPanel
  189.         Left = 96
  190.         Top = 20
  191.         Width = 53
  192.         Height = 17
  193.         Hint = 'Click to edit'
  194.         BevelOuter = bvLowered
  195.         Caption = '11111111'
  196.         Font.Color = clWindowText
  197.         Font.Height = -11
  198.         Font.Name = 'arial'
  199.         Font.Style = []
  200.         ParentFont = False
  201.         ParentShowHint = False
  202.         ShowHint = True
  203.         TabOrder = 8
  204.         OnClick = Port1DecClick
  205.       end
  206.       object Panel10: TPanel
  207.         Tag = 1
  208.         Left = 152
  209.         Top = 20
  210.         Width = 41
  211.         Height = 17
  212.         Hint = 'Click to toggle'
  213.         BevelOuter = bvLowered
  214.         Caption = 'No'
  215.         Font.Color = clWindowText
  216.         Font.Height = -11
  217.         Font.Name = 'arial'
  218.         Font.Style = []
  219.         ParentFont = False
  220.         ParentShowHint = False
  221.         ShowHint = True
  222.         TabOrder = 9
  223.         OnClick = Panel10Click
  224.       end
  225.       object Port2Label: TPanel
  226.         Left = 0
  227.         Top = 40
  228.         Width = 29
  229.         Height = 17
  230.         Hint = 'Click to select next available port'
  231.         BevelOuter = bvLowered
  232.         Caption = '379'
  233.         Font.Color = clWindowText
  234.         Font.Height = -11
  235.         Font.Name = 'arial'
  236.         Font.Style = []
  237.         ParentFont = False
  238.         ParentShowHint = False
  239.         ShowHint = True
  240.         TabOrder = 10
  241.         OnClick = Port1LabelClick
  242.       end
  243.       object Port2Dec: TPanel
  244.         Left = 32
  245.         Top = 40
  246.         Width = 29
  247.         Height = 17
  248.         Hint = 'Click to edit'
  249.         BevelOuter = bvLowered
  250.         Caption = '255'
  251.         Font.Color = clWindowText
  252.         Font.Height = -11
  253.         Font.Name = 'arial'
  254.         Font.Style = []
  255.         ParentFont = False
  256.         ParentShowHint = False
  257.         ShowHint = True
  258.         TabOrder = 11
  259.         OnClick = Port1DecClick
  260.       end
  261.       object Port2Hex: TPanel
  262.         Left = 64
  263.         Top = 40
  264.         Width = 29
  265.         Height = 17
  266.         Hint = 'Click to edit'
  267.         BevelOuter = bvLowered
  268.         Caption = 'FF'
  269.         Font.Color = clWindowText
  270.         Font.Height = -11
  271.         Font.Name = 'arial'
  272.         Font.Style = []
  273.         ParentFont = False
  274.         ParentShowHint = False
  275.         ShowHint = True
  276.         TabOrder = 12
  277.         OnClick = Port1DecClick
  278.       end
  279.       object Port2Bin: TPanel
  280.         Left = 96
  281.         Top = 40
  282.         Width = 53
  283.         Height = 17
  284.         Hint = 'Click to edit'
  285.         BevelOuter = bvLowered
  286.         Caption = '11111111'
  287.         Font.Color = clWindowText
  288.         Font.Height = -11
  289.         Font.Name = 'arial'
  290.         Font.Style = []
  291.         ParentFont = False
  292.         ParentShowHint = False
  293.         ShowHint = True
  294.         TabOrder = 13
  295.         OnClick = Port1DecClick
  296.       end
  297.       object Panel15: TPanel
  298.         Tag = 2
  299.         Left = 152
  300.         Top = 40
  301.         Width = 41
  302.         Height = 17
  303.         Hint = 'Click to toggle'
  304.         BevelOuter = bvLowered
  305.         Caption = 'No'
  306.         Font.Color = clWindowText
  307.         Font.Height = -11
  308.         Font.Name = 'arial'
  309.         Font.Style = []
  310.         ParentFont = False
  311.         ParentShowHint = False
  312.         ShowHint = True
  313.         TabOrder = 14
  314.         OnClick = Panel10Click
  315.       end
  316.       object Port3Label: TPanel
  317.         Left = 0
  318.         Top = 60
  319.         Width = 29
  320.         Height = 17
  321.         Hint = 'Click to select next available port'
  322.         BevelOuter = bvLowered
  323.         Caption = '37A'
  324.         Font.Color = clWindowText
  325.         Font.Height = -11
  326.         Font.Name = 'arial'
  327.         Font.Style = []
  328.         ParentFont = False
  329.         ParentShowHint = False
  330.         ShowHint = True
  331.         TabOrder = 15
  332.         OnClick = Port1LabelClick
  333.       end
  334.       object Port3Dec: TPanel
  335.         Left = 32
  336.         Top = 60
  337.         Width = 29
  338.         Height = 17
  339.         Hint = 'Click to edit'
  340.         BevelOuter = bvLowered
  341.         Caption = '255'
  342.         Font.Color = clWindowText
  343.         Font.Height = -11
  344.         Font.Name = 'arial'
  345.         Font.Style = []
  346.         ParentFont = False
  347.         ParentShowHint = False
  348.         ShowHint = True
  349.         TabOrder = 16
  350.         OnClick = Port1DecClick
  351.       end
  352.       object Port3Hex: TPanel
  353.         Left = 64
  354.         Top = 60
  355.         Width = 29
  356.         Height = 17
  357.         Hint = 'Click to edit'
  358.         BevelOuter = bvLowered
  359.         Caption = 'FF'
  360.         Font.Color = clWindowText
  361.         Font.Height = -11
  362.         Font.Name = 'arial'
  363.         Font.Style = []
  364.         ParentFont = False
  365.         ParentShowHint = False
  366.         ShowHint = True
  367.         TabOrder = 17
  368.         OnClick = Port1DecClick
  369.       end
  370.       object Port3Bin: TPanel
  371.         Left = 96
  372.         Top = 60
  373.         Width = 53
  374.         Height = 17
  375.         Hint = 'Click to edit'
  376.         BevelOuter = bvLowered
  377.         Caption = '11111111'
  378.         Font.Color = clWindowText
  379.         Font.Height = -11
  380.         Font.Name = 'arial'
  381.         Font.Style = []
  382.         ParentFont = False
  383.         ParentShowHint = False
  384.         ShowHint = True
  385.         TabOrder = 18
  386.         OnClick = Port1DecClick
  387.       end
  388.       object Panel20: TPanel
  389.         Tag = 4
  390.         Left = 152
  391.         Top = 60
  392.         Width = 41
  393.         Height = 17
  394.         Hint = 'Click to toggle'
  395.         BevelOuter = bvLowered
  396.         Caption = 'No'
  397.         Font.Color = clWindowText
  398.         Font.Height = -11
  399.         Font.Name = 'arial'
  400.         Font.Style = []
  401.         ParentFont = False
  402.         ParentShowHint = False
  403.         ShowHint = True
  404.         TabOrder = 19
  405.         OnClick = Panel10Click
  406.       end
  407.       object Panel6: TPanel
  408.         Left = 0
  409.         Top = 80
  410.         Width = 193
  411.         Height = 29
  412.         Hint = 'Click on pin to toggle level'
  413.         BevelOuter = bvLowered
  414.         ParentShowHint = False
  415.         ShowHint = True
  416.         TabOrder = 20
  417.         object SlctOut: TShape
  418.           Left = 4
  419.           Top = 4
  420.           Width = 9
  421.           Height = 9
  422.           Hint = 'Pin 13'
  423.           ParentShowHint = False
  424.           Shape = stCircle
  425.           ShowHint = True
  426.         end
  427.         object PaperOut: TShape
  428.           Left = 16
  429.           Top = 4
  430.           Width = 9
  431.           Height = 9
  432.           Hint = 'Pin 12'
  433.           ParentShowHint = False
  434.           Shape = stCircle
  435.           ShowHint = True
  436.         end
  437.         object Busy: TShape
  438.           Left = 28
  439.           Top = 4
  440.           Width = 9
  441.           Height = 9
  442.           Hint = 'Pin 11'
  443.           ParentShowHint = False
  444.           Shape = stCircle
  445.           ShowHint = True
  446.         end
  447.         object ACK: TShape
  448.           Left = 40
  449.           Top = 4
  450.           Width = 9
  451.           Height = 9
  452.           Hint = 'Pin 10'
  453.           ParentShowHint = False
  454.           Shape = stCircle
  455.           ShowHint = True
  456.         end
  457.         object D7: TShape
  458.           Tag = 128
  459.           Left = 52
  460.           Top = 4
  461.           Width = 9
  462.           Height = 9
  463.           Hint = 'Pin 9 D7 Input'
  464.           ParentShowHint = False
  465.           Shape = stCircle
  466.           ShowHint = True
  467.           OnMouseDown = D6MouseDown
  468.         end
  469.         object D6: TShape
  470.           Tag = 64
  471.           Left = 64
  472.           Top = 4
  473.           Width = 9
  474.           Height = 9
  475.           Hint = 'Pin 8 D6 Output'
  476.           ParentShowHint = False
  477.           Shape = stCircle
  478.           ShowHint = True
  479.           OnMouseDown = D6MouseDown
  480.         end
  481.         object D5: TShape
  482.           Tag = 32
  483.           Left = 76
  484.           Top = 4
  485.           Width = 9
  486.           Height = 9
  487.           Hint = 'Pin 7 D5 Output'
  488.           ParentShowHint = False
  489.           Shape = stCircle
  490.           ShowHint = True
  491.           OnMouseDown = D6MouseDown
  492.         end
  493.         object D4: TShape
  494.           Tag = 16
  495.           Left = 88
  496.           Top = 4
  497.           Width = 9
  498.           Height = 9
  499.           Hint = 'Pin 6 D4 Output'
  500.           ParentShowHint = False
  501.           Shape = stCircle
  502.           ShowHint = True
  503.           OnMouseDown = D6MouseDown
  504.         end
  505.         object D3: TShape
  506.           Tag = 8
  507.           Left = 100
  508.           Top = 4
  509.           Width = 9
  510.           Height = 9
  511.           Hint = 'Pin 5 D3 Output'
  512.           ParentShowHint = False
  513.           Shape = stCircle
  514.           ShowHint = True
  515.           OnMouseDown = D6MouseDown
  516.         end
  517.         object D2: TShape
  518.           Tag = 4
  519.           Left = 112
  520.           Top = 4
  521.           Width = 9
  522.           Height = 9
  523.           Hint = 'Pin 4 D2 Output'
  524.           ParentShowHint = False
  525.           Shape = stCircle
  526.           ShowHint = True
  527.           OnMouseDown = D6MouseDown
  528.         end
  529.         object D1: TShape
  530.           Tag = 2
  531.           Left = 124
  532.           Top = 4
  533.           Width = 9
  534.           Height = 9
  535.           Hint = 'Pin 3 D1 Output'
  536.           ParentShowHint = False
  537.           Shape = stCircle
  538.           ShowHint = True
  539.           OnMouseDown = D6MouseDown
  540.         end
  541.         object D0: TShape
  542.           Tag = 1
  543.           Left = 136
  544.           Top = 4
  545.           Width = 9
  546.           Height = 9
  547.           Hint = 'Pin 2 D0 Output'
  548.           ParentShowHint = False
  549.           Shape = stCircle
  550.           ShowHint = True
  551.           OnMouseDown = D6MouseDown
  552.         end
  553.         object STB: TShape
  554.           Tag = 131073
  555.           Left = 148
  556.           Top = 4
  557.           Width = 9
  558.           Height = 9
  559.           Hint = 'Pin 1'
  560.           ParentShowHint = False
  561.           Shape = stCircle
  562.           ShowHint = True
  563.           OnMouseDown = D6MouseDown
  564.         end
  565.         object Gnd1: TShape
  566.           Left = 12
  567.           Top = 16
  568.           Width = 9
  569.           Height = 9
  570.           Hint = 'Pin 25 Gnd'
  571.           Brush.Color = clLime
  572.           ParentShowHint = False
  573.           Shape = stCircle
  574.           ShowHint = True
  575.         end
  576.         object Gnd2: TShape
  577.           Left = 24
  578.           Top = 16
  579.           Width = 9
  580.           Height = 9
  581.           Hint = 'Pin 24 Gnd'
  582.           Brush.Color = clLime
  583.           ParentShowHint = False
  584.           Shape = stCircle
  585.           ShowHint = True
  586.         end
  587.         object Gnd3: TShape
  588.           Left = 36
  589.           Top = 16
  590.           Width = 9
  591.           Height = 9
  592.           Hint = 'Pin 23 Gnd'
  593.           Brush.Color = clLime
  594.           ParentShowHint = False
  595.           Shape = stCircle
  596.           ShowHint = True
  597.         end
  598.         object Gnd4: TShape
  599.           Left = 48
  600.           Top = 16
  601.           Width = 9
  602.           Height = 9
  603.           Hint = 'Pin 22 Gnd'
  604.           Brush.Color = clLime
  605.           ParentShowHint = False
  606.           Shape = stCircle
  607.           ShowHint = True
  608.         end
  609.         object Gnd5: TShape
  610.           Left = 60
  611.           Top = 16
  612.           Width = 9
  613.           Height = 9
  614.           Hint = 'Pin 21 Gnd'
  615.           Brush.Color = clLime
  616.           ParentShowHint = False
  617.           Shape = stCircle
  618.           ShowHint = True
  619.         end
  620.         object Gnd6: TShape
  621.           Left = 72
  622.           Top = 16
  623.           Width = 9
  624.           Height = 9
  625.           Hint = 'Pin 20 Gnd'
  626.           Brush.Color = clLime
  627.           ParentShowHint = False
  628.           Shape = stCircle
  629.           ShowHint = True
  630.         end
  631.         object Gnd7: TShape
  632.           Left = 84
  633.           Top = 16
  634.           Width = 9
  635.           Height = 9
  636.           Hint = 'Pin 19 Gnd'
  637.           Brush.Color = clLime
  638.           ParentShowHint = False
  639.           Shape = stCircle
  640.           ShowHint = True
  641.         end
  642.         object Gnd8: TShape
  643.           Left = 96
  644.           Top = 16
  645.           Width = 9
  646.           Height = 9
  647.           Hint = 'Pin 18 Gnd'
  648.           Brush.Color = clLime
  649.           ParentShowHint = False
  650.           Shape = stCircle
  651.           ShowHint = True
  652.         end
  653.         object SlctIn: TShape
  654.           Tag = 131080
  655.           Left = 108
  656.           Top = 16
  657.           Width = 9
  658.           Height = 9
  659.           Hint = 'Pin 17'
  660.           ParentShowHint = False
  661.           Shape = stCircle
  662.           ShowHint = True
  663.           OnMouseDown = D6MouseDown
  664.         end
  665.         object Init: TShape
  666.           Tag = 131076
  667.           Left = 120
  668.           Top = 16
  669.           Width = 9
  670.           Height = 9
  671.           Hint = 'Pin 16'
  672.           ParentShowHint = False
  673.           Shape = stCircle
  674.           ShowHint = True
  675.           OnMouseDown = D6MouseDown
  676.         end
  677.         object Err: TShape
  678.           Left = 132
  679.           Top = 16
  680.           Width = 9
  681.           Height = 9
  682.           Hint = 'Pin 15'
  683.           ParentShowHint = False
  684.           Shape = stCircle
  685.           ShowHint = True
  686.         end
  687.         object AFD: TShape
  688.           Tag = 131074
  689.           Left = 144
  690.           Top = 16
  691.           Width = 9
  692.           Height = 9
  693.           Hint = 'Pin 14'
  694.           ParentShowHint = False
  695.           Shape = stCircle
  696.           ShowHint = True
  697.           OnMouseDown = D6MouseDown
  698.         end
  699.         object SpeedButton1: TSpeedButton
  700.           Left = 164
  701.           Top = 4
  702.           Width = 25
  703.           Height = 21
  704.           Hint = 'Click for settings '
  705.           Glyph.Data = {
  706.             78010000424D7801000000000000760000002800000020000000100000000100
  707.             04000000000000000000120B0000120B00000000000000000000000000000000
  708.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  709.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  710.             3333333333333333333333333333333333333333333333333333333333333333
  711.             3333333333333333333333333333333333333333333FF3333333333333003333
  712.             3333333333773FF3333333333309003333333333337F773FF333333333099900
  713.             33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
  714.             99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
  715.             33333333337F3F77333333333309003333333333337F77333333333333003333
  716.             3333333333773333333333333333333333333333333333333333333333333333
  717.             33333333333333333333333333333333333333333333333333330000}
  718.           NumGlyphs = 2
  719.           ParentShowHint = False
  720.           ShowHint = True
  721.           OnClick = SpeedButton1Click
  722.         end
  723.         object Burst: TShape
  724.           Left = 4
  725.           Top = 20
  726.           Width = 5
  727.           Height = 5
  728.           Shape = stCircle
  729.         end
  730.       end
  731.     end
  732.     object TPage
  733.       Left = 0
  734.       Top = 0
  735.       Caption = 'Config'
  736.       object Panel7: TPanel
  737.         Left = 0
  738.         Top = 0
  739.         Width = 193
  740.         Height = 109
  741.         Align = alClient
  742.         BevelOuter = bvLowered
  743.         TabOrder = 0
  744.         object SpeedButton2: TSpeedButton
  745.           Left = 136
  746.           Top = 84
  747.           Width = 25
  748.           Height = 21
  749.           Hint = 'Go back'
  750.           Glyph.Data = {
  751.             78010000424D7801000000000000760000002800000020000000100000000100
  752.             04000000000000000000120B0000120B00000000000000000000000000000000
  753.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  754.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  755.             3333333333333333333333333333333333333333333333333333333333333333
  756.             3333333333333FF3333333333333003333333333333F77F33333333333009033
  757.             333333333F7737F333333333009990333333333F773337FFFFFF330099999000
  758.             00003F773333377777770099999999999990773FF33333FFFFF7330099999000
  759.             000033773FF33777777733330099903333333333773FF7F33333333333009033
  760.             33333333337737F3333333333333003333333333333377333333333333333333
  761.             3333333333333333333333333333333333333333333333333333333333333333
  762.             33333333333333333333333333333333333333333333333333330000}
  763.           NumGlyphs = 2
  764.           ParentShowHint = False
  765.           ShowHint = True
  766.           OnClick = SpeedButton2Click
  767.         end
  768.         object SpeedButton3: TSpeedButton
  769.           Left = 164
  770.           Top = 84
  771.           Width = 25
  772.           Height = 21
  773.           Hint = 'Click for more settings'
  774.           Glyph.Data = {
  775.             78010000424D7801000000000000760000002800000020000000100000000100
  776.             04000000000000000000120B0000120B00000000000000000000000000000000
  777.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  778.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  779.             3333333333333333333333333333333333333333333333333333333333333333
  780.             3333333333333333333333333333333333333333333FF3333333333333003333
  781.             3333333333773FF3333333333309003333333333337F773FF333333333099900
  782.             33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
  783.             99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
  784.             33333333337F3F77333333333309003333333333337F77333333333333003333
  785.             3333333333773333333333333333333333333333333333333333333333333333
  786.             33333333333333333333333333333333333333333333333333330000}
  787.           NumGlyphs = 2
  788.           ParentShowHint = False
  789.           ShowHint = True
  790.           OnClick = SpeedButton3Click
  791.         end
  792.         object Label4: TLabel
  793.           Left = 8
  794.           Top = 12
  795.           Width = 49
  796.           Height = 13
  797.           Caption = 'Connector'
  798.         end
  799.         object Label5: TLabel
  800.           Left = 8
  801.           Top = 36
  802.           Width = 48
  803.           Height = 13
  804.           Caption = 'High color'
  805.         end
  806.         object Label6: TLabel
  807.           Left = 8
  808.           Top = 60
  809.           Width = 46
  810.           Height = 13
  811.           Caption = 'Low color'
  812.         end
  813.         object ConType: TComboBox
  814.           Left = 68
  815.           Top = 8
  816.           Width = 77
  817.           Height = 21
  818.           Hint = 'Sets connector pin orientation'
  819.           Style = csDropDownList
  820.           ItemHeight = 13
  821.           Items.Strings = (
  822.             'female'
  823.             'male')
  824.           ParentShowHint = False
  825.           ShowHint = True
  826.           TabOrder = 0
  827.           OnChange = ConTypeChange
  828.         end
  829.         object HighColorBox: TColorDrop
  830.           Left = 68
  831.           Top = 32
  832.           Width = 121
  833.           Height = 21
  834.           Hint = 'Sets the color for a logic "1"'
  835.           SelectedColor = clRed
  836.           ParentShowHint = False
  837.           ShowHint = True
  838.           TabOrder = 1
  839.           OnChange = HighColorBoxChange
  840.         end
  841.         object LowColorBox: TColorDrop
  842.           Left = 68
  843.           Top = 56
  844.           Width = 121
  845.           Height = 21
  846.           Hint = 'Sets the color for a logic "0"'
  847.           SelectedColor = clLime
  848.           ParentShowHint = False
  849.           ShowHint = True
  850.           TabOrder = 2
  851.           OnChange = LowColorBoxChange
  852.         end
  853.       end
  854.     end
  855.     object TPage
  856.       Left = 0
  857.       Top = 0
  858.       Caption = 'About'
  859.       object Panel8: TPanel
  860.         Left = 0
  861.         Top = 0
  862.         Width = 193
  863.         Height = 109
  864.         Align = alClient
  865.         BevelOuter = bvLowered
  866.         TabOrder = 0
  867.         object SpeedButton5: TSpeedButton
  868.           Left = 136
  869.           Top = 84
  870.           Width = 25
  871.           Height = 21
  872.           Hint = 'Go back'
  873.           Glyph.Data = {
  874.             78010000424D7801000000000000760000002800000020000000100000000100
  875.             04000000000000000000120B0000120B00000000000000000000000000000000
  876.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  877.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  878.             3333333333333333333333333333333333333333333333333333333333333333
  879.             3333333333333FF3333333333333003333333333333F77F33333333333009033
  880.             333333333F7737F333333333009990333333333F773337FFFFFF330099999000
  881.             00003F773333377777770099999999999990773FF33333FFFFF7330099999000
  882.             000033773FF33777777733330099903333333333773FF7F33333333333009033
  883.             33333333337737F3333333333333003333333333333377333333333333333333
  884.             3333333333333333333333333333333333333333333333333333333333333333
  885.             33333333333333333333333333333333333333333333333333330000}
  886.           NumGlyphs = 2
  887.           ParentShowHint = False
  888.           ShowHint = True
  889.           OnClick = SpeedButton5Click
  890.         end
  891.         object Label1: TLabel
  892.           Left = 12
  893.           Top = 4
  894.           Width = 167
  895.           Height = 24
  896.           Caption = 'Parallel Port Monitor'
  897.           Font.Color = clNavy
  898.           Font.Height = -19
  899.           Font.Name = 'MS Sans Serif'
  900.           Font.Style = []
  901.           ParentFont = False
  902.         end
  903.         object Label2: TLabel
  904.           Left = 44
  905.           Top = 44
  906.           Width = 105
  907.           Height = 13
  908.           Caption = '(c) 1997 Fred Bulback'
  909.         end
  910.         object Label3: TLabel
  911.           Left = 70
  912.           Top = 28
  913.           Width = 53
  914.           Height = 13
  915.           Caption = 'Version 1.0'
  916.         end
  917.         object UrlLabel1: TUrlLabel
  918.           Left = 36
  919.           Top = 60
  920.           Width = 146
  921.           Height = 13
  922.           Cursor = 5
  923.           Caption = 'www.okanagan.net/users/fred'
  924.           Font.Color = clBlue
  925.           Font.Height = -11
  926.           Font.Name = 'MS Sans Serif'
  927.           Font.Style = [fsUnderline]
  928.           ParentFont = False
  929.           PopupMenu = UrlLabel1.
  930.           URL = 'http://www.okanagan.net/users/fred'
  931.         end
  932.         object UrlLabel2: TUrlLabel
  933.           Left = 36
  934.           Top = 76
  935.           Width = 95
  936.           Height = 13
  937.           Cursor = 5
  938.           Caption = 'fred@okanagan.net'
  939.           Font.Color = clBlue
  940.           Font.Height = -11
  941.           Font.Name = 'MS Sans Serif'
  942.           Font.Style = [fsUnderline]
  943.           ParentFont = False
  944.           PopupMenu = UrlLabel2.
  945.           URL = 'mailto:fred@okanagan.net'
  946.         end
  947.         object Label7: TLabel
  948.           Left = 4
  949.           Top = 76
  950.           Width = 30
  951.           Height = 13
  952.           Caption = 'e-mail:'
  953.         end
  954.         object Label8: TLabel
  955.           Left = 4
  956.           Top = 60
  957.           Width = 25
  958.           Height = 13
  959.           Caption = 'URL:'
  960.         end
  961.         object Label9: TLabel
  962.           Left = 4
  963.           Top = 92
  964.           Width = 110
  965.           Height = 13
  966.           Caption = 'Freeware.  Not for sale.'
  967.           Font.Color = clMaroon
  968.           Font.Height = -11
  969.           Font.Name = 'MS Sans Serif'
  970.           Font.Style = []
  971.           ParentFont = False
  972.         end
  973.       end
  974.     end
  975.     object TPage
  976.       Left = 0
  977.       Top = 0
  978.       Caption = 'Config2'
  979.       object Panel9: TPanel
  980.         Left = 0
  981.         Top = 0
  982.         Width = 193
  983.         Height = 109
  984.         Align = alClient
  985.         BevelOuter = bvLowered
  986.         TabOrder = 0
  987.         object SpeedButton4: TSpeedButton
  988.           Left = 164
  989.           Top = 84
  990.           Width = 25
  991.           Height = 21
  992.           Hint = 'Click for about information'
  993.           Glyph.Data = {
  994.             78010000424D7801000000000000760000002800000020000000100000000100
  995.             04000000000000000000120B0000120B00000000000000000000000000000000
  996.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  997.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  998.             3333333333333333333333333333333333333333333333333333333333333333
  999.             3333333333333333333333333333333333333333333FF3333333333333003333
  1000.             3333333333773FF3333333333309003333333333337F773FF333333333099900
  1001.             33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
  1002.             99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
  1003.             33333333337F3F77333333333309003333333333337F77333333333333003333
  1004.             3333333333773333333333333333333333333333333333333333333333333333
  1005.             33333333333333333333333333333333333333333333333333330000}
  1006.           NumGlyphs = 2
  1007.           ParentShowHint = False
  1008.           ShowHint = True
  1009.           OnClick = SpeedButton4Click
  1010.         end
  1011.         object SpeedButton6: TSpeedButton
  1012.           Left = 136
  1013.           Top = 84
  1014.           Width = 25
  1015.           Height = 21
  1016.           Hint = 'Go back'
  1017.           Glyph.Data = {
  1018.             78010000424D7801000000000000760000002800000020000000100000000100
  1019.             04000000000000000000120B0000120B00000000000000000000000000000000
  1020.             800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1021.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  1022.             3333333333333333333333333333333333333333333333333333333333333333
  1023.             3333333333333FF3333333333333003333333333333F77F33333333333009033
  1024.             333333333F7737F333333333009990333333333F773337FFFFFF330099999000
  1025.             00003F773333377777770099999999999990773FF33333FFFFF7330099999000
  1026.             000033773FF33777777733330099903333333333773FF7F33333333333009033
  1027.             33333333337737F3333333333333003333333333333377333333333333333333
  1028.             3333333333333333333333333333333333333333333333333333333333333333
  1029.             33333333333333333333333333333333333333333333333333330000}
  1030.           NumGlyphs = 2
  1031.           ParentShowHint = False
  1032.           ShowHint = True
  1033.           OnClick = SpeedButton6Click
  1034.         end
  1035.         object Label10: TLabel
  1036.           Left = 4
  1037.           Top = 44
  1038.           Width = 56
  1039.           Height = 13
  1040.           Caption = 'Sample rate'
  1041.         end
  1042.         object OnTop: TCheckBox
  1043.           Left = 4
  1044.           Top = 4
  1045.           Width = 89
  1046.           Height = 17
  1047.           Hint = 'Permits window to always be visible'
  1048.           Caption = 'Always on top'
  1049.           ParentShowHint = False
  1050.           ShowHint = True
  1051.           TabOrder = 0
  1052.           OnClick = OnTopClick
  1053.         end
  1054.         object DisableCon: TCheckBox
  1055.           Left = 4
  1056.           Top = 20
  1057.           Width = 113
  1058.           Height = 17
  1059.           Hint = 'Disables graphical information'
  1060.           Caption = 'Disable connector'
  1061.           ParentShowHint = False
  1062.           ShowHint = True
  1063.           TabOrder = 1
  1064.           OnClick = DisableConClick
  1065.         end
  1066.         object SampleRate: TComboBox
  1067.           Left = 68
  1068.           Top = 40
  1069.           Width = 121
  1070.           Height = 21
  1071.           Style = csDropDownList
  1072.           ItemHeight = 13
  1073.           Items.Strings = (
  1074.             'As fast as possible'
  1075.             '0.05 seconds'
  1076.             '0.1 seconds'
  1077.             '0.5 seconds'
  1078.             '1 second'
  1079.             '2 seconds'
  1080.             '5 seconds'
  1081.             '10 seconds'
  1082.             '30 seconds'
  1083.             '60 seconds')
  1084.           TabOrder = 2
  1085.           OnChange = SampleRateChange
  1086.         end
  1087.         object SampleBlink: TCheckBox
  1088.           Left = 4
  1089.           Top = 64
  1090.           Width = 109
  1091.           Height = 17
  1092.           Caption = 'Blink on sample'
  1093.           TabOrder = 3
  1094.           OnClick = SampleBlinkClick
  1095.         end
  1096.       end
  1097.     end
  1098.   end
  1099.   object Timer1: TTimer
  1100.     Enabled = False
  1101.     OnTimer = Timer1Timer
  1102.     Left = 128
  1103.     Top = 76
  1104.   end
  1105.   object Timer2: TTimer
  1106.     Enabled = False
  1107.     Interval = 50
  1108.     OnTimer = Timer2Timer
  1109.     Left = 160
  1110.     Top = 76
  1111.   end
  1112. end
  1113.